home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / pctj8502.arc / ERRORS.PAS < prev    next >
Pascal/Delphi Source File  |  1986-09-14  |  256b  |  11 lines
  1. program errors(input, output);
  2. var
  3.   i, x, y : integer;
  4. begin
  5.    y := 2               {1}
  6.    writeln(x+y);        {2}
  7.    for i := 1 to 5 do
  8.       writeln(i);
  9.    writeln(i);          {3}
  10. end.
  11.